home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Abacus diskdrives IO.adf / CH9 / Decode.S < prev    next >
Text File  |  1978-06-28  |  874b  |  38 lines
  1. Device         = 350
  2. Port           = 36
  3. RepPort        = 174
  4. SigTask        = 16
  5. Task           = 276
  6. FindName       = -276
  7.  
  8. Number         = $200
  9. Source         = $50040
  10. Desti          = $60000
  11.  
  12.  
  13.                move.l $4,a6
  14.                lea Name,a1
  15.                lea Device(a6),a0
  16.                jsr FindName(a6)
  17.                tst.l d0
  18.                beq Error
  19.                move.l Task(a6),a0
  20.                move.l d0,a6
  21.                move.l Port(a6),a3
  22.                lea RepPort(a3),a1
  23.                move.l SigTask(a1),-(a7)
  24.                move.l a1,-(a7)
  25.                move.l a0,SigTask(a1)
  26.                lea Source,a1
  27.                lea Desti,a0
  28.                move.l #Number,d0
  29.                jsr $feacb2
  30.                move.l (a7)+,a1
  31.                move.l (a7)+,SigTask(a1)
  32. Error:        rts
  33.  
  34. Name:          dc.b 'trackdisk.device',0
  35.  
  36.                END
  37.  
  38.